Introduction (or Overview)

A more detailed and informative overview of the project’s purpose and objectives than what your provided in assignment 6. Approximate maximum length of 400 (individual) to 800 (team, assuming a single package vignette) words.

Methods (or Approach)

For a more analytical project, provide a complete description of the methods you used to undertake the analysis, complete with informative illustrations and summaries of the input datasets. Approximate maximum length of 400 (individual) to 800 words.

Results

Each code chunk will create a map where users can move through all available dates for a different hashtag.

icantbreathe Choropleth Map

stopthesteal Choropleth Map

#stopthesteal hashtag map
stopthesteal_map = plot_geo(stopthesteal_join, locationmode = 'USA-states') %>%
  add_trace(locations = ~STATE,
            z = ~value,
            color = ~value,
            colorscale="Hot",
            zmin=0,
            zmax=max(electionfraud_join$value),
            text = ~hover,
            hoverinfo = 'text',
            frame = ~date_final) %>%
  layout(geo = list(scope = "usa"),
         font = list(family = "TT Georgia")) %>%
  style(hoverlabel = label)

stopthesteal_map

Voterfraud Choropleth Map

#voterfraud
voterfraud_map = plot_geo(voterfraud_join, locationmode = 'USA-states') %>%
  add_trace(locations = ~STATE,
            z = ~value,
            color = ~value,
            colorscale="Hot",
            zmin=0,
            zmax=max(electionfraud_join$value),
            text = ~hover,
            hoverinfo = 'text',
            frame = ~date_final) %>%
  layout(geo = list(scope = "usa"),
         font = list(family = "TT Georgia")) %>%
  style(hoverlabel = label)

voterfraud_map

electionfraud Choropleth Map

#electionfraud
electionfraud_map = plot_geo(electionfraud_join, locationmode = 'USA-states') %>%
  add_trace(locations = ~STATE,
            z = ~value,
            color = ~value,
            colorscale="Hot",
            zmin=0,
            zmax=max(electionfraud_join$value),
            text = ~hover,
            hoverinfo = 'text',
            frame = ~date_final) %>%
  layout(geo = list(scope = "usa"),
         font = list(family = "TT Georgia")) %>%
  style(hoverlabel = label)

electionfraud_map

Discussion

For analytical projects, briefly provide your interpretation of the results, any uncertainties/difficulties encountered, and any next steps to be taken. Up to 400-800 words (range refers to individual versus team efforts).